From: Ken Raeburn <raeburn@raeburn.org>
Date: Tue, 16 Jul 2002 15:09:30 +0000 (+0000)
Subject: (SDATA): Produce rvalue.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~31638
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=db821a0d9387e85f1c92f4e2ed1aaa0b62f6b1ab;p=emacs.git

(SDATA): Produce rvalue.
---

diff --git a/src/lisp.h b/src/lisp.h
index 1dd66c95f50..eb15e4753b1 100644
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -542,7 +542,7 @@ extern Lisp_Object make_number ();
 /* Convenience macros for dealing with Lisp strings.  */
 
 #define SREF(string, index)	XSTRING (string)->data[index]
-#define SDATA(string)		XSTRING (string)->data
+#define SDATA(string)		(XSTRING (string)->data + 0)
 #define SCHARS(string)		(XSTRING (string)->size + 0)
 #define SBYTES(string)		(STRING_BYTES (XSTRING (string)) + 0)